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000000000 
000000000 
000000000 


SSSS8S8SS888888 
SSSSSSSSSS8SS8s 


SSSSSSSSSssssss 
S3S223_ 822383 


ccm 
lem Ea | 


**F ILE**1D**SCSLOADER 


SSSSSSSS cccccccc SSSSSSSS_ LL 000000 AAAAAA DDDDDDDD EEEEEEEEEE RRRRRRRR 
SSSSSSSS cccccccc SSSSSSSS_ LL 000000 AAAAAA DDDDDDDD EEEEEEEEEE RRRRRRRR 
$$ cc SS LL 00 OO AA AA DD DD EE RR RR 
SS cc SS LL 00 OO AA AA DD DD EE RR RR 
SS cc SS LL 00 OO AA AA DD DD EE RR RR 
SS cc SS LL 00 OO AA AA DD DD EE RR RR 
SSSSSS cc SSSSSS LL 00 OO AA AA DD DD EEEEEEEE RRRRRRRR 
SSSSSS cc SSSSSS LL 00 OO AA AA DD DD EEEEEEEE RRRRRRRR 
ss CC SS LL 00 00 AAAAAAAAAA DD DD EE RR RR 
ss CC SS LL 00 00 AAAAAAAAAA DD DD EE RR RR 
ss CC SS LL 00 OO AA AA 0D DD EE RR RR eeee 
ss CC SS LL 00 00 AA AA DD DD EE RR RR cece 
SSSSSSSS CCCCCCCC §=SSSSSSSS LLLLLLLLLL 000000 Ah AA DDDDDDDD EEEEEEEEEE RR RR cece 
SSSSSSSS CCCCCCCC §=SSSSSSSS LLLLLLLLLL 000000 AA AA DDDDDDDD EEEEFEEEEE RR RR cove 
LL IIIIII SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII1 SSSSSSSS 
LLLLLLLLLL 1111] SSSSSSSS 
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SCSLOADER - Loader for SCS code 16-SEP-1984 00:01:18 VAX/VMS Macro v04-00 Page 1. 
$62 t000 ; yah} 90 bs iae BOOTS.SRCJSCSLOADER.MAR; 1 . (1) 
eTITL ; % CL OAD ER - Loader for SCS code 
IDEN 


—PARAARAAAAAAAAAALALALALE ALLA LALA LES ALAS SALE L EASA REARS REESE EE EERE SELES ERR 


Srtth tg! (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
i 
® 
® 
a 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER FERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
& 
THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 
® 
. 2 
® 
® 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOR TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOoOCOCOoOOCOOCOoOoOoOoOoOoOoOooooooooo 
SOOO OCOOCOCOOCOOOCOOOOSOOOOOoOoOo 


COCO COCCOCOCOOCCOOOOCOOOOOooOoOo 


So 
o 


rarer. @aeeneneneeneeeaeennennann 


SoOoCooooooooooooooo 


IRARARRAAAAASLAASAALARSARAASLALASALELALELASALARA AAS A RAR AREA RRR ARA ARAL ALAA SAAD SD 


NAME WR @O ODONAUNE WIN 0 OD NAUE WN 0 OO SIAMESE WIN O ODNAUES WN OWONOUE Wh 
+ 
oe 


So 
oS 
So 
oO 
PUPS TSPVSUSIVTVN EB BB BE EE ENNIS PR NUNPINIPUNINIDY 2 2 OO OO 


0000 : FACILITY: 

0000 ; 

0000 : ABSTRACT: 

9000 : This module loads SCS code for driver that require it. 

9000 > ENVIRONMENT: 

4464 : VAX/VMS user and kernel mode, raises IPL. 

$8 gE 

9000 + AUTHOR: Kerbey T. Altmann, CREATION DATE: August, 1981 

9000 ; MODIFIED BY: 

0000 ; v03-005 KPL0001 Peter Lieberwirth 24-Feb-1984 
444 $ Fix truncation errcer. 

$608 ; V03-004 JWHO222 def trey W. Horn 27-Apr-1983 
44 : Replace LINK_VEC with EXESLINK_VEC. 

0000 : v03-003 MSHO001 aryann Hinden 31-Jan-1983 
9000 ; Change IOGENSGL DPT to ACFSGL_DPT. 

$000 : v03-002 KDM0002 thleen D. Morse 28-Jun-1982 
0000 : Added $SIPLDEF, SSSbEF. ond’ SPRDEF. 
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vor gree obs Seibeiae banove smeiccsvocpee.man:1 2% (2, 


Non-paged pool is allocated. 
COMPLETION CODES: 

SS$_NORMAL - ALL errors are signaled from with this module. 
SIDE EFFECTS: 

NONE 


Soooooosogo 
SOooooooooo 


09 5 lee 
0 60 

09 63 -SBTTL DECLARATIONS 

0 63 ; INCLUDE FILES: 

000 64; 

3 soprte 

$00 85 SIPLDEF 

0000 98 SPRDEF 

464 § SSSDEF 

0 0 SSLVDEF 

0000 71 $SYSGMSGDEF 

0000 Le; 

0000 73 ;++ 

0000 74; 

44 ie 3 FUNCTIONAL DESCRIPTION: 

0000 fr 3 SCSLOADER is called to check for presence of SCS code, if 
8008 A $ not present, it loads it into non-paged pool. 
0000 80 ; CALLING SEQUENCE: 

0000 81; 

0000 Ht 3 CALLS #0,BOOSSCSLOADER 
0000 83 ; 

0000 ; INPUT PARAMETERS: 

0000 $ NONE 

0000 3 
464 3 IMPLICIT INPUTS: 
444 5 SCS$AL_LOAVEC - Address of entry point into SCS code. 
0000 3; OUTPUT PARAMETERS: 
0000 3 NONE 

0000 3 
0000 3; IMPLICIT OUTPUTS: 

000 3 


> OWN STORAGE 
-PSECT NONPAGED_DATA, rd,wrt,noexe,quad 
SCS_NAME : eASCIC /SCSLOA/ : Input file spec 


0000 
41 4F 4C 53 43 53 00° 
06 


—— § ~HOODOOO9O0OSC0O0000 000000000000 0000 
WN SO ODNAOUES WN $9 OONAUEWN SO OONAUSE 


a a a s+ st ts ts 


Soooooooo 
Soooooooo 


Sssssssssssssosssss 
SOOQOooCoooooooooooooo 


seagate "NPHEECHSES QOSRA1E HCAS Race YOR ag P28 


g 3; Channel number 
; Return addresses 
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SCSLOADER - Loader for SCS code 16-SEP-1984 00:01:18 VAX/VMS Macro v04-00 Pa 4 
yont000 DECLARATIONS raat 99:90:18 feos, sre SCSLOADER.MAR; 1 - (2). 
8 1 118 3 
1 119 ; BEGIN 
Bs 1g 
0000 B68 : § -PSECT NONPAGED_CODE.rd,nowrt,exe, long 
0804 ay } 3 «ENTRY BOOSSCSLOADER, “M<R2,R11> 
000 1 § SCMKRNL_S W*SCS_CHECK : See if SCS needs to be loaded 
4750 €9 Bete : f BLBC “~RO,100$~ :; Branch if not necessary 
001 129 : Set up inputs for vooptng file 
it : ’ : (Can’t use RMS directly because -- STASYSGEN) 
39 O'EF 9 001 1 : , MOVAB SCS_NAME,R ; Address of counted string 
5 Q0000007"EF 9E 001 13 MOVAB SCS_CHAN,R : Address of channel 
54 ‘EF GE 0097 133 MOVAB SCS_ADDR,R4 ; Address of quadword region descriptor 
OO0000000"EF 16 0027 136 JSB IOGENSREADDRIV ; Read in SCS code 
1850 = =«E9 Bee 13 BLBC RO,99$ ; Branch if error! 
5B 64 00000200 8F (C1 Ones Fe ADDL3 #512,(R4),R11 ; Set address to load, skip image header 
0038 141; 
0038 149 3; Now execute the remaining code in KERNEL mode. 
0038 143; 
0038 144 
0038 145 90S: SCMKRNL_S W*SCSPOOL : Execute kernel routine 
1150 €8 3083 rs BLBS “~RO,100$ ; Branch if OK 
50 DD 0048 148 99$ PUSHL RO ; Set error 
7E D4 QO4A 149 CLRL oitees : zero longword 
007C9038 8F DD 004C 150 PUSHL NOSCS 3; No SCS code 
00000000'GF 03 FB B336 13] CALLS ie yee BSS ieNAL ; Error 
50 01 »dO 0059 138 100$ MOVL #SS$_NORMAL ,RO ; Always return success 
04 O005C 154 RET ; Return 
0050 =155 
005d 156 


el ene e 


Se aLonper - Loader for SCS code i at at 90:81:18 pees Macro V04-00 Page 5 
v04- DECLARATIONS 46-SEP-1984 25:05:44 ([BOOTS.SRCISCSLOADER.MAR; 1 (4) 
B20 138 
0004 5D 159 SCS_CHECK: «WORD “M<R2> 

OSF 160 
OSF 161; - 
Oper 166 ; Check driver to see if SCS is required 
OOSF 163; 
OOSF 164 

50 04 OQOOSF 165 CLRL RO ; Assume ‘Don't load’’ 

52 QO0000000'EF DO 0061 196 MOVL ACFSGL_DPT,R2 ; Set address of DPT 
15 13 0068 16 BEQL 10$ 3; Branch if none 
03 £1 O06A 168 BBC #D0PT$V_SCS,- 
10 OD A2 096¢ 168 DPT$B_FLAGS(R2) ,10$ ; Branch if SCS not specified 
Boer \e ; Driver says to load SCS, now check to see if it’s loaded 
00000000'8F D1 O06F 18 CMPL #EXESLOAD_ERROR,- 
00000002 ' GF 0075 174 G*SCSS$AL_COAVEC+2 ; See if vector has changed from 

QO7A 175 ; _initial value 

0s 12 bose 176 BNEQ 10$ ; Branch if loaded 

50 01 DO OO7C 178 MOVL #SS$_NORMAL ,RO ; Set ‘‘Load SCS" 
04 pada 4 10$: RET ; Return 
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| VO4=000 DECLARATIONS ae a 90: 0h 18 BOOTS. SRCJSCSLOADER.MAR; 1 ° (5) 
080 SCSPOOL: 
| 067¢ 90 WORD  “*MCR2,R3,R4,R5,R6.RI-RIO> 
it ; Grab enough non-paged pool for the code 
51 6B 00 008 : MOVL (R11), R1 : Size needed for cod 
00000000'GF 16 008 JSB G6*EXE $ALONONPAGED 3; Get the space : 
06 50 5? 088 BLBS : Okay 
50 0124 BF 3¢ OBE MOVZWL #SS$_INSFMEM, RO 
04 Boaz 108 RET ; Error 
59 651 7D ity ; MOVQ R1, RO : Save size and address 
6A 68 59 28 Bboy MOVC3 RY, (R11), (R10) ; Move the code to non-paged pool 
0098 : Fix um the vectors 
0098 SETIPL #IPL$_SYNCH 3 Synchronize 


* 
THE FOLLOWING IS STOLEN FROM INIT.MAR 


; The loadable SCs code image (SCSLOA.EXE) is now allocated non-paged 
: pool space and read into it y yay The address of this code 

; is passed in BOOSGL_SCSLOA. Link t 

§ 


009E k the resident system vectors at 
O009E ; SCSSAL_LOAVEC. The loadable file has self-describing vector and 
444 ; offset information within it. 


eer 


WIWWIAINIAIRIDIPINIPONINIDNINIDS 9 9 2 [OOD OOOOOCOOCOCWOVOOOOOOOOMWMmcdcmcocoe 
MEWS ODNAOU EWN OOO NAUE WN O ODNAUE WN 0 OONAU EWR OO OONOUS wry 


S 

oOo 

> 

—_ 
PRIPIPYONIPIPIPIPINYNINYININYIAINININIPUNINININININIPINUNININININIPINIDINID) 9 9 2 $29 


52. SA =O s«ON9E OVL R10,R2 ; Address of SCSLOA image in pool 
53 O00000000'GF DE MOVAL G*SCSS$AL_LOAVEC,R3 ; Address of resident vectors. 
54 52 DO OOA8 MOVL R2,R4 : Save 
FF52" 30 OOAB BSBW  - EXESLINK_VEC : Link vectors 
1150 £9 QOAE BLBC RO, 30$ 3 get out on error : 
50 04 A4 DO 00B1 MOVL SLVSL_INITRTN(R4) ,RO ; Possfble initialization routine 
08 13 0085 BEQL 25$ ; None, Leave s 
50 54 ¢0 0087 ADDL R4,RO ; Absolute address of init 
OA 10 008A BSBB «40S ; Call it 
Bpec ; After init and reieasing itself to pool, return here 
03 50 €9 OOBC BLBC RO, 30$ 
50 01 DO OOBF 258: MOVL #1, R ; Set success 
Bate 30$: SETIPL #0 
04 00C RET 
00C6 
00C6 ; : 
bore ; Cute Little routine to do an REI to code. 
7E DC 00C6 40$:  MOVPSL -(SP) ; Set up PSL 
50 DD 00C8 PUSHL RO ; Address to start at 
02 OOCA ; Flush TB and jump to code 
00CB 
00¢B ~END 


SCSLOADER 
Symbol table 
ACFSGL_DPT 
BOOSSCSLOADER 
DPTSB_FLAGS 
DPTSV_SCS 
SACONONPAGED 


S~CHECK 
SCS-LOADCODE 

S"NAM 
SLVSL_INITRIN 
SS$_INSFMEM 
$S$_NO 


RMAL 
SYSSCMKRNL 
SYSG$_NOSCS 


PSECT name 


$aBss 
NONPAGED_DATA 
NONPAGED ~ CODE 


Initialization 
Command processing 


Pass 

Symbol iable sort 
Pass 2 

Symbol tabie output 


Psect synopsis output 
Cross-reference output 
Assembler run totals 
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RERERERE 


x 
p 000000 RG 


"or eeen198e 9955 


= 444 
= 0000000 
Reekeeee x 03 
Reeekene x 03 
eeeeeere K 0 
RRRRAEEE x 0 
= 00000008 
ReRRRERE x 03 
= 00000012 
Rkekkeee x 03 
00000080 R 03 
00000008 R 02 
00000007 R bg 
0000005D R 0 
QOOOO09E R 03 
00001,000 R 02 
= 00000004 
= 00000124 
= 00000001 
keekeeee GX 03 
= 007C€9038 
meow mame mma wae + 
: Psect synopsis ! 
pom e nace meron wes + 
Allocation PSECT No. Attributes 
00000000 <( 0.) 00 ¢ O.) NOPIC USSR 
00000000 <( 0.) 01 ¢ PIC USR 
00000013 ( 19.) 02 ¢ ¢ ) NOPIC USR 
000000cB ¢ 203.) 03 ¢ ) NOPIC  USR 
power wees ree ee eee ces ee een} 
: Performance indicators ! 
SHUEGeeeseausesecasoucese$> 
Page faults CPU Time Elapsed Time 
31 — 00:00:00.08  — 00:00:00.81 
116 90:00:00.69 — 00:00:05.21 
250 90:00:06.3 00:00: 11.27 
0 0:00:00.92 0:00:01.74 
53 0:00:01-19  00:00:08-05 
4 9:00:00.04 00:00:00.4 
1 — 00:00:00:02 — 00:00:00-02 
9 89:00:00.09 99:09:00.9 
459  00:00:09.29 00:00:19.1 


The_ working set Limit was 1200 pages. 
33071 bytes (65 pages) of virtual memory were used to buffer 
There were 40 pages of symbol table space allocated to hold 650 non-local and 8 local symbols. 
235 source Lines were read in Pass 1, producing 2. 

16 pages of virtual memory were used to define 15 macros. 


object records in Pass 


he intermediate code. 


sine 


L NOS 
L NOS 
: NOS 


L 
L 
L 
LCL NOS 


C 
C 
C 
C 
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BOOTS.SRCJSCSLOADER.MAR; 1 


HR NOEXE NORD 
HR EXE RD 
HR NOEXE RD 
HR EXE RD 


Page 


NOWRT NOVEC BYTE 


NOWRT NOVEC LONG 


7 
(5) 


8 VAX/VMS Macro v04-00 Page 8 


E 16 
SCSLOADER - Loader for SCS code yp a at 984 00:01: 
23:05:44 (BOOTS. SRCISCSLOADER.MAR; 1 (5) 


VAX-11 Macro Run Statistics 4-SEP-1984 


Wins 
y ee 


$wmemen cer nos none en mr ecere nou aes} 


! Macro Library statistics ? 


Guneaesener ne et 


Macro Library name Macros defined 
.$255$DUA28: (BOOTS. nt w ie -MLB; 1 0 
“$255$DUA28: (SYS .OBJILIB. 5 
$255$DUA28: eye IBISTARLET. Le: 2 v4 
TOTALS (all Libraries) 12 


722 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SCSLOADER/OBJ=0BJ$:SCSLOADER MSRC$:SCSLOADER/UPDATE=(ENH$: SCSLOADER) +EXECML$/LIB+L1IB$:B00TS.MLB/LIB 
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L EQUIPMENT 
ENTIAL 


003 AH BTI3A-SE 


D 
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